home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Complete Mac Interactive / Macworld Complete Mac Interactive CD)(1994).iso / Software / More Shareware⁄Freeware / NIH Image 1.55 f (non fpu) / Macros / PidNumber Demo < prev    next >
Text File  |  1993-11-24  |  2KB  |  111 lines
  1. {Macros which illustrate the use of picNumber, pidNumber,  }
  2. {SelectPic, and SelectWindow. }
  3.  
  4. var
  5.  line: integer;
  6.  myPicNumber: integer;
  7.  myPidNumber: integer;
  8.  
  9. macro 'Create some images… [A]';
  10. var
  11.   howMany: integer;
  12.    i: integer;
  13. begin
  14.   SetBackgroundColor(0);
  15.   SetForegroundColor(255);
  16.    howMany := GetNumber('How many images do you want?',5);
  17.    while nPics < howMany do begin
  18.       MakeNewWindow('new image');
  19.       SetPicName('PicNum=',PicNumber:0,', PidNum=',PidNumber:0);
  20.    end;
  21.   line := 1;
  22.   for i := 1 to nPics do begin
  23.     SelectPic(i);
  24.     MoveTo(10,15*line);
  25.     Write('PicNumber = ',picNumber:1,',  PidNumber = ',
  26.       pidNumber:1);
  27.   end;
  28. end;
  29.  
  30. macro 'SelectPic… [B]';
  31. var
  32.   id: integer;
  33. begin
  34.   id := GetNumber('(+) pic number or (-) pic ID to select',-1);
  35.   SelectPic(id);
  36. end;
  37.  
  38. macro 'Draw PicNumber and PidNumber in each image [C]';
  39.  var
  40.    i: integer;
  41. begin
  42.   SetBackgroundColor(0);
  43.   SetForegroundColor(255);
  44.   line := line + 1;
  45.   for i := 1 to nPics do begin
  46.     SelectPic(i);
  47.     MoveTo(10,15*line);
  48.     Write('PicNumber = ',picNumber:1,
  49.       ',  PidNumber = ',pidNumber:1);
  50.   end;
  51. end;
  52.  
  53. macro 'Dispose of the front image [D]';
  54. begin
  55.   Dispose;
  56. end;
  57.  
  58. macro 'Dispose All [E]';
  59. begin
  60.   DisposeAll;
  61. end;
  62.  
  63. macro 'This is my favorite image [F]';
  64. begin
  65.   myPicNumber := PicNumber;
  66.   myPidNumber := PidNumber;
  67.   line := line + 1;
  68.   MoveTo(10,15*line);
  69.   Write('Favorite:  PicNumber = ',picNumber:1,
  70.   ', PidNumber =',pidNumber:1);
  71.   SetPicName('My Favorite Image');
  72. end;
  73.  
  74. macro 'Try to find my favorite image by PicNumber [G]';
  75. begin
  76.   SelectPic(myPicNumber);
  77. end;
  78.  
  79. macro 'Try to find my favorite image by PidNumber [H]';
  80. begin
  81.   if PidExists(myPidNumber)
  82.     then SelectPic(myPidNumber)
  83.     else PutMessage('Image is no longer open');
  84. end;
  85.  
  86. macro 'Try to find my favorite image by window title [I]'
  87. begin
  88.   SelectWindow('My Favorite Image');
  89. end;
  90.  
  91. macro 'Pick an image, any image [P]';
  92. begin
  93.   SelectPic(trunc(random * nPics) + 1);
  94. end;
  95.  
  96. macro 'Erase all Images [Q]';
  97.  var
  98.    i: integer;
  99. begin
  100.   SetBackgroundColor(0);
  101.   for i := 1 to nPics do begin
  102.     SelectPic(i);
  103.     SelectAll;
  104.     Clear;
  105.   end;
  106.   KillRoi;
  107.   line:=0;
  108. end;
  109.  
  110.  
  111.